by Gehan Fernando (47 Submissions)
Category: Graphics
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Tue 23rd December 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Move Colors to Left to Right,Right to Left {Usig vb.net}
API Declarations
.Drawing
.Drawing.Drawing2D
''' <summary>
''' Developed By Gehan Fernando
''' Description : Move Colors to Left to Right,Right to Left
''' Date : 23-12-2008
''' Mail Me : [email protected] / [email protected]
''' </summary>
''' <remarks></remarks>
Private _middlePoint As Single = 0
Private _fixedValue As Single = 0.1
Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim pnt As New Point(0, 0)
Dim sz As New Size(PictureBox1.ClientSize.Width, PictureBox1.ClientSize.Height)
Dim rec As New Rectangle(pnt, sz)
Dim br As New LinearGradientBrush(rec, Color.Red, Color.Black, _middlePoint)
Dim cbLnd As New ColorBlend()
With cbLnd
.Colors = New Color() {Color.Red, Color.Lime, Color.Black}
.Positions = New Single() {0.0, _middlePoint, 1.0}
End With
br.InterpolationColors = cbLnd
With e.Graphics
.Clear(PictureBox1.BackColor)
.CompositingMode = CompositingMode.SourceOver
.CompositingQuality = CompositingQuality.HighQuality
.FillRectangle(br, rec)
End With
br.Dispose()
_middlePoint += _fixedValue
If _middlePoint > 1 OrElse _middlePoint < 0 Then _fixedValue = -_fixedValue
End Sub
Private Sub TimerRotate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerRotate.Tick
PictureBox1.Invalidate()
End Sub
End Class